4D Doc Center : CT Array to polygon

4D Chart v13

CT Array to polygon


CT Array to polygon ( area ; arrayH ; arrayV ) -> Resultado

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D Chart
arrayH	Array real	Array de valores horizontales para los vértices
arrayV	Array real	Array de valores verticales para los vértices
Resultado	Entero largo	Número de ID del nuevo objeto

Descripción

El comando CT Array to polygon crea un nuevo polígono en area basado en los arrays arrayH y arrayV y devuelve el identificador del nuevo objeto.

arrayH y arrayV describe la posición de cada vértice del polígono. Los dos arrays pueden ser de tipo Real, Entero largo o Entero y se especifican en puntos. Cada array debe tener al menos tres elementos para obtener un polígono correcto. Si los arrays no son del mismo tamaño, los elementos extra en el array más grande se ignoran. Para crear un polígono cerrado, el último valor en cada array debe corresponder al primer valor.

Ejemplo

Este ejemplo llena dos arrays y crea u polígono a partir de ellos. Luego mueve y redimensiona el polígono:

 $Vertices:=Num(Request("Introduzca el número de vértices:"))

 If(OK=1) `Declare los arrays

    ARRAY REAL(aVerticeH;$Vertices)

    ARRAY REAL(aVerticeV;$Vertices)

    For($i;1;$Vertices) `Llenar los arrays

       aVerticeH{$i}:=Sin($i)

       aVerticeV{$i}:=Cos($i)

    End for

  `Dibujar el polígono

    $Poly:=CT Array to polygon(Area;aVerticeH;aVerticeV)

  `Mover el polígono al área coordenadas (10,10)

    CT MOVE(Area;$Poly;10;10)

    CT SIZE(Area;$Poly;200;200) `Redimensionar el polígono a 200x200

 End if